home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / programming / e / ee / rexx / ee.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-09-07  |  3.2 KB  |  164 lines
  1. /*  EE Rx Test Suite v0.9.2a
  2.     REQUIREMENTS:
  3.       - AddLib('rexxsupport.library',-30) for Delay()
  4.       - Executable 'E:bin/EE'
  5.       - No running EE's
  6.       - Textfile 'E:README'
  7. */
  8.  
  9. ADDRESS COMMAND
  10. OPTIONS FAILAT 10
  11.  
  12. /* Start EE and/or wait for it's port to become registered. */
  13. IF ~Show(PORTS, 'EE.0') THEN 'Run E:bin/EE'
  14. DO WHILE ~Show(PORTS, 'EE.0')
  15.   CALL Delay(50)
  16. END
  17.  
  18. ADDRESS 'EE.0'
  19. OPTIONS RESULTS
  20.  
  21. LockWindow
  22.  
  23. /*CALL start*/
  24.  
  25. SAY 'Open E:README'
  26. Open 'E:README'
  27. CALL Delay(150)
  28.  
  29. SAY 'Clear'
  30. Clear
  31. CALL Delay(50)
  32.  
  33. SAY 'OpenNew E:README'
  34. OpenNew 'E:README'
  35. CALL Delay(150)
  36.  
  37. SAY 'NextWindow'
  38. NextWindow
  39. CALL Delay(100)
  40.  
  41. SAY 'Quit'
  42. Quit
  43. CALL Delay(150)
  44.  
  45. SAY 'NewWindow'
  46. NewWindow
  47. CALL Delay(50)
  48.  
  49. SAY 'Close old window'
  50. NextWindow; Quit
  51. CALL Delay(50)
  52.  
  53. SAY 'PutChar a, b, c'
  54. PutChar 'a'
  55. PutChar 'b'
  56. PutChar c   /* note ARexx capitalizes */
  57. CALL Delay(100)
  58.  
  59. SAY 'BackSpace*3'
  60. BackSpace 'REP=3'
  61. CALL Delay(100)
  62.  
  63. SAY "PutLine 'PutLine()'"
  64. PutLine 'PutLine()'
  65. CALL Delay(100)
  66.  
  67. SAY "PutString 'Hoohah!'"
  68. PutString 'Hoohah!'
  69. CALL Delay(100)
  70.  
  71. SAY 'BeginningOfLine'
  72. BeginningOfLine
  73. CALL Delay(100)
  74.  
  75. SAY 'OpenLine'
  76. OpenLine
  77. CALL Delay(100)
  78.  
  79. SAY 'CursorUp; SplitLine'
  80. CursorUp
  81. SplitLine
  82. CALL Delay(100)
  83.  
  84. SAY 'GetChar until NL'
  85. DO FOREVER
  86.   GetChar
  87.   IF C2D(RESULT)=10 THEN LEAVE
  88.   SAY 'GetChar('RESULT')'
  89.   CursorRight
  90. END
  91. CALL Delay(100)
  92.  
  93. SAY 'BeginningOfLine'
  94. BeginningOfLine
  95. CALL Delay(100)
  96.  
  97. GetString  5; SAY 'GetString  5('RESULT')'
  98. GetString 10; SAY 'GetString 10('RESULT')'
  99. GetWord;      SAY 'GetWord('RESULT')'
  100. CALL Delay(150)
  101.  
  102. SAY "SaveAs 'T:dummy'"
  103. SaveAs 'T:dummy'
  104. CALL Delay(100)
  105.  
  106. SAY 'SetCmd5 "Echo blahblahblah IT WORKS!"'
  107. SetCmd5 '"Echo blahblahblah IT WORKS!"'  /* NOTE double quotes necessary! */
  108. CALL Delay(100)
  109.  
  110. SAY 'Cmd5'
  111. Cmd5
  112. CALL Delay(150)
  113.  
  114. start:
  115.  
  116. SAY 'Zip and Unzip window'
  117. ZipWindow; CALL Delay(50)
  118. ZipWindow; CALL Delay(100)
  119.  
  120. SAY 'SizeWindow 400 50'
  121. SizeWindow 400 50
  122. CALL Delay(100)
  123.  
  124. SAY 'MoveWindow 100 50'
  125. MoveWindow 100 50
  126. CALL Delay(100)
  127.  
  128. SAY 'GotoLine 1'
  129. GotoLine 1
  130. CALL Delay(100)
  131.  
  132. SAY 'MarkBlock; CursorDown 2; CursorRight 2'
  133. MarkBlock
  134. CursorDown 'REP=2'
  135. CursorRight 'REP=2'
  136. CALL Delay(100)
  137.  
  138. ?BlockDimensions;      SAY 'BlockDimensions     ='RESULT
  139. PARSE VALUE RESULT WITH sl sc el ec .
  140. SAY 'StartLine='sl 'StartColumn='sc 'EndLine='el 'EndColumn='ec
  141. CALL Delay(300)
  142.  
  143. ?Column;               SAY 'Column              ='RESULT
  144. ?DefaultPublicScreen;  SAY 'DefaultPublicScreen ='RESULT
  145. ?Filename;             SAY 'Filename            ='RESULT
  146. ?FindCase;             SAY 'FindCase            ='RESULT
  147. ?FoldExtraLines;       SAY 'FoldExtraLines      ='RESULT
  148. ?IndentWidth;          SAY 'IndentWidth         ='RESULT
  149. ?InsertMode;           SAY 'InsertMode          ='RESULT
  150. ?Justify;              SAY 'Justify             ='RESULT
  151. ?Length;               SAY 'Length              ='RESULT
  152. ?Line;                 SAY 'Line                ='RESULT
  153. ?NoFoldWhenLoading;    SAY 'NoFoldWhenLoading   ='RESULT
  154. ?PathAndFilename;      SAY 'PathAndFileName     ='RESULT
  155. ?PubScreenName;        SAY 'PubScreenName       ='RESULT
  156. ?ShanghaiPublicScreen; SAY 'ShanghaiPublicScreen='RESULT
  157. ?TabWidth;             SAY 'TabWidth            ='RESULT
  158. ?TallWindow;           SAY 'TallWindow          ='RESULT
  159. ?WindowDimensions;     SAY 'WindowDimensions    ='RESULT
  160.  
  161. UnlockWindow
  162.  
  163. EXIT 0
  164.